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Il supergame di questa pri¬ 
ma compilation dedicata ai 
computer MSX, è stato pro¬ 
dotto dalla software house 
inglese Virgin Games e pos¬ 
siede qualità veramente su¬ 
perlative. 

L’avventura si svolge nel 
lontano secolo diciassette¬ 
simo quando streghe, sorti¬ 
legi, fatture e magie erano 
all’ordine del giorno. 


n gioco 

Corrono tempi oscuri ed il 
mondo è seriamente minac¬ 
ciato dalle forze infernali 
guidate da un negromante 
le quali stanno occupando 
inesorabilmente anche le 
antiche terre da sempre do¬ 
minio dei Grandi Maghi. 
Voi, che siete l’ultimo mago 
rimasto libero, dovete far 
di tutto per sopravvivere e 
liberare i maghi vostri ami¬ 
ci già tutti intrappolati da¬ 
gli odiosi diavolastri pre¬ 
senti un po’ dovunque. 
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La maggior parte dei luoghi 
da voi visitati implica la 
presenza di oggetti che sta 
a voi stessi stabilire se pos¬ 
sano o meno servire. State 
attenti che alcuni di essi vi 
sono addirittura indispen¬ 
sabili, altri sono solo delle 
lusinghe ed altri ancora 
possiedono qualità piutto¬ 
sto strane. Spesso i vari sce¬ 
nari prevedono passaggi se¬ 
greti che solo cercando at¬ 
tentamente riuscirete a 
trovare. I maghi che riusci¬ 
te a liberare si riuniscono 
nel Santuario ed attendono 
il vostro arrivo al termine 
della missione per poter 
sconfiggere definitivamen¬ 
te il negromante. 

Per liberare i maghi amici 
dovete agire rapidamente 
perlustrando ogni angolo 
del regno e prelevando gli 
oggetti di volta in volta ne¬ 
cessari; ricordatevi che la 
vittoria finale vi arriderà 
solo se riuscirete a liberare 
tutti i colleghi imprigiona¬ 
ti. 


Caricamento 

Accertatevi che il nastro 
sia completamente riawol- 
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to, digitate lOAD “CAS:”, R 
quindi date l’ENTER e fate 
partire il registratore in 
PLAY. 


Come si gioca 

È consigliabile l’impiego 
del joystick in -quanto, pur 
potendo giocare con i tasti, 
è praticamente impossibile 
muoversi con la tempesti¬ 
vità ed il colpo d’occhio ne¬ 
cessari. Il joystick va inse¬ 
rito in porta 1: spostando la 
cloche verso l’alto il mago 
sale, spostandola verso si¬ 
nistra e verso destra si spo¬ 
sta di conseguenza, mentre 
non è necessario lo sposta¬ 
mento verso il basso perché 
il mago scende già di per sé 
stesso. Per usare oppure 
per scambiare gli oggetti, 
agite sul pulsante di sparo 
ricordandovi che vi sono 
oggetti utili e indispensabi¬ 
li, ma che vi sono anche og¬ 
getti mortali. 

I tasti interessati sono: 

Z (5) = sinistra 
X (9) = destra 
ENTER (RETURN) = su 
SHIFT = per usare o scam¬ 
biare gli oggetti. 

Se riuscite ad ottenere uno 
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dei cinque migliori punteg¬ 
gi, il programma vi chiede¬ 
rà di inserire il vostro no¬ 
me e vi presenta nella clas¬ 
sifica generale. 

Gli oggetti 

Se volete prelevare un og¬ 
getto, dovete posizionare il 
mago sopra di esso e preme¬ 


re il pulsante di sparo (op¬ 
pure il tasto SHIFT se usate 
la tastiera). Lo stesso pul¬ 
sante lo dovete usare per 
uccidere gli esseri infernali 
o per mettere in atto la vo¬ 
stra formula magica sem¬ 
pre però che ve ne siate 
creati i presupposti. Potre¬ 
te cambiare gli oggetti con 
altri oggetti, ma mai abban¬ 


donarne uno. La conve¬ 
nienza di prelevare un og¬ 
getto al posto di un altro la 
scoprirete con l’esperienza 
e... con le perdite di ener¬ 
gia. 

Display 

Nella parte bassa dello 
schermo è riportato il nome 
del luogo in cui vi trovate, 
la descrizione dell’oggetto 
che state recando e la per¬ 
centuale di energia rimasta 
a vostra disposizione. Sem¬ 
pre in basso, un libro vi se¬ 
gnala il trascorrere del tem¬ 
po. 

Energia 

L’energia a vostra disposi¬ 
zione parte dal 100% e scen¬ 
de ogni qualvolta incappate 
nelle forze demoniache o in 
qualche oggetto nefasto. 
Cercate di evitare il più pos¬ 
sibile gli esseri infernali e, 
visto che siete il Grande 
Mago, trovatevi da soli qua¬ 
le sia la sorgente che incre¬ 
menta le vostre energie. 

Tempo 

Oltre che dai soliti avversa¬ 
ri come fantasmi e forze oc¬ 
culte, dovete anche guar¬ 
darvi dallo scorrere del 
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tempo che vi viene segnala¬ 
to dal libro giallo situato 
nell’angolo in basso a de¬ 
stra il quale va via via esau¬ 
rendosi. Dovrete liberare 
tutti i maghi prigionieri 
prima che l’intero libro sia 
totalmente scomparso, al¬ 
trimenti il malvagio negro¬ 
mante avrà ancora una vol¬ 
ta avuto la meglio. 

Schermi 

Durante il vostro viaggio 
dovete ispezionare ben 50 


schermi che, per vostra 
sfortuna, il negromante ha 
disposto in maniera tutt’al- 
tro che facile. Per varcare 
anche le porte più tenebro¬ 
se dovrete quindi usare 
strategia e astuzia. Alla 
partenza vi troverete in 
uno dei cinque schermi a 
ciò predestinati. 


Sospensione del 
game 

Per concedervi un attimo di 
respiro dagli assillanti at¬ 
tacchi del vostro nemico o 
per permettervi di rispon¬ 
dere al telefono, premete il 
tasto DELETE (DEL); potre¬ 
te poi riprendere il gioco col 
pulsante di sparo del joy¬ 
stick; o con la barra spazia¬ 
trice. 


Guida all’input MSX 


Per motivi di stampa e chia¬ 
rezza, i caratteri grafici o 
comunque tutti i simboli il 
cui codice (ASC(“car.”)) è 
superiore a 127, compaiono 
nei listati codificati in mo¬ 
do particolare. 

Ogni carattere o serie di ca¬ 
ratteri uguali e contigui, è 
sostituito da parentesi 
graffe contenenti: 

- il numero dei caratteri 


(omesso se=l) 

- la lettera maiuscola “C” 
oppure “A” a seconda se si 
tratta del set normale (ca¬ 
ratteri ottenuti con 
CHR$(l)+CHR$(n)) 

- codice “n" del carattere o 
dei caratteri da battere. 
Qualsiasi computer MSX 
voi abbiate, potete riferirvi 
al manuale per trovare la 
corrispondenza tra il codi¬ 


ce-carattere dato e il simbo¬ 
lo a cui corrisponde. 
ESEMPIO: 

! 3C190 ) = battere 3 volte 
il carattere PI-GRECO 
|A67 j = battere il caratte¬ 
re cuore 
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Missione 



5 REM MISSIONE PERICOLOSA 

6 REM 

9 0PEN"GRP : "ASiM 

10 KEYOFF 

30 GOSUB10000 
39 COLOR 15,5,9 
35 GOSUB290 
90 A?=100:BÌ-100 
50 BOA-9 
60 FU=175 
70 GOSUB1080 

80 LINE(0,60)-(60,70),12,BF:LINE(0,90)-(30 
,59),15,BF:LINE(8,97)-(22,52),8,BF:LINE(13 
,92)—(17,57),8,BF 

90 PRESET(O.O):P RIN T #1 ," A B0RD0:9 

OSPEDALE : 0" 

100 PRESET(80,9): P RIN T # 1,CHR$(1);CHR$(&H91 

) 

110 REM ROUTINE PRINCIPALE 
120 GOSUB980 

130 A? = A$+ (H?/5 ) : B58=BJ+ (V*/5 ) 

190 IFBK<=0THENVÌ»10 



La responsabilità che vi sie¬ 
te accollati accettando di 
partire in questa missione, 
è molto alta, infatti dalla 
vostra abilità dipende la vi¬ 
ta di molte persone. 
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n gioco 

Alla guida del vostro elicot¬ 
tero, avete il compito di 
prelevare ad uno ad uno i 
nove feriti che si trovano a 
bordo di un cacciatorpedi¬ 
niere scampato ad una tre¬ 
menda battaglia. Pilotando 
accortamente il velivolo, 
dovrete posarvi lentamente 
e di precisione sulla nave in 
movimento e quindi torna¬ 
re all’ospedale da campo po¬ 
sandovi altrettando lenta¬ 
mente sullo spiazzo verde 
antistante. Un minimo er¬ 
rore di manovra può far 
esplodere l’elicottero e 
quindi costarvi la vita; ciò 
accade anche quando nel- 
l’atterrare sia sulla nave 
che sul campo dell’ospeda¬ 
le, i vostri sci d’appoggio 
non coincidono perfetta¬ 
mente con la superficie sot¬ 
to 


150 IFC=0THENG0SUB580 

160 EJ-EH-1:IFEÌ<0THENE?=Z24:F?-FÌ+1 

170 IF A %< 1 THENA5E-224 

180 IFA$>224THENA?-0 

190 PUTSPRITE5,(E?,F?),14:PUTSPRITE6,(E?+1 
6 , FS6 ), 1 4 

200 PUTSPRITE3, (A$,B?) ,10 

210 PUTSPRITE4,(A % +16, B% ) ,10 

220 IFB5t-F%- 1 6AND k% > E % AN DA % < ( E ì + 1 0 ) THENGO 

SU B610 

230 IFB*>F?-16 AND A* + 1 6 >E % AND Aì 1 6 < E £ + 4 
8 THENGOSUB81 0 

240 IFA5U61 AND B5U70 AND B?>42 THENG0SUB7 
70 

250 IF B*>174THENG0SUB810 

260 IF A % < 31 AND BJ>24 AND B %< 60THENG0SUB8 
1 0 

270 GOT0120 
280 G0T0280 

290 REM DISEGNO SCHERMO 

300 REST0RE430 

310 SCREEN2,2 

320 COLOR 15 

330 F0RQ=0T06 

340 F0RW-1T032 

350 READD 

360 S$=S$+CHR$(D) 

370 NEXTW 

380 SPRITE$(Q)=S$ 

390 S$-"" 

400 NEXTQ 
410 RETURN 
'420 G0T0420 

430 DATA 0,0,1,6,121,128,152,160,160,64,80 

,80,, 79,32,28,3,63,192,3,252,0,0,3,130,128, 

126,1,0,128,7,56,192,128,127,192,3,0,0,248 

,0,0,7,248,0,7 ,-224,24,7,0,224,24,132,114,9 

,1 ,1 ,133,13,49,66,196,2,4,248 

440 DATA 15,16,16,38,40,72,73,65,133,166,1 

60,144,92,33,28,3,0,192,48,12,224,34,18,18 

,2,22,20,100,132,36,24,224 

450 DATA 63,0,0,1,3,6,12,8,24,31,24,12,15, 

71,33,31,255,16,16,252,62,63,63,63,63,255, 

63,63,255,255,4,255,248,0,0,0,0,0,128,255, 

255,255,255,240,192,0,0,192,0,0,0,0,1,3,7, 

255,255,255,248,0,0,0,0,0 

460 DATA 1,1,1,2,2,4,4,4,255,255,127,63,63 

,31 ,31,7,255,1 ,1,1 ,1 ,1,1,1,255,255,255,255 

,255,255,255,255,255,129,129,128,128,128,1 

28,128,255,255,255,255,255,255,255,255,0,0 

,0,128,128,64,64,64,255,255,254,248,248,24 

0,240,224 

470 REM 

480 C=STICK(STI):IFC-1THENV*«V5l-1 

490 IFC-2THENVJ-VJ-1:HÌ=H$*1 

500 IFC=3THENHJ-H?+1 

510 IFC =» 4THEN V 51 = V J + 1 :H? = H?+1 

520 IFC-5THENVJ-VJ+1 

530 IFC-6THENVJ-VÌ+1:HJ-H*-1 

540 IFC-7THENH%-H$-1 








550 IFC-8THENV?=V*-1 
560 RETURN 

570 REM ELICOTTERO LENTO 

5 80 IFHÌ<0THENHÌ = HJ+1ELSE IFH % >OTHENH % -H%-1 
590 VJ-VI+1 

600 RETURN 

610 REM ATTERRAGGIO 

620 BEEP 

630 IFV$>20THENGOSUB810 

690 IFH5U-1 00RHJ>1 OTHENGOSUB81 0 

650 V$=0:H?=0 

660 COLOR 5 : PRESET(216,0):PRINT#1,HOS:PRES 
ET <104,0):PRINT#1 ,BOA: COLOR 15 
670 IFBJ>150ANDHEL<1THENPRESET(80,9): COLOR 
5 :P RIN T #1 ,CHR$(1 );CHR$(&H41 ) :PRESET(130,9 
) : COLOR 1 5 : PRINT#1 ,CHR$(1 ) ;CHR$ ( 8.H41 ) : HEL = 
1 : BOA“BOA-1 

680 IFB?<70ANDHEL>0THENPRESET( 1 30,9 ) : COLOR 
5: PRINT//1 , C H R $ ( 1 ) ;CHR$(&H41 ) : P R E S E T ( 1 92,9 
) : COLOR 15;PRINT#1 ,CHR$(1 ) ; C H R $ ( &,H 4 1 ) :HEL = 
0 :HOS-HOS + 1 

690 IFHEL»OTHENPRESET(192,9):COLOR 5:PRINT 
#1 ,C H R $(1 );CHR$(&H41 ): PRESET(80,9): COLOR 1 
5:PRINT#1 ,CHR$(1 ) ;CHR$(&H41 ) 

700 COLOR 15 : PRESET(104,0):PRINT/M ,BOA :PRE 
SET (216,0): PRINT/M ,HOS 
710 IFH0S=9THENG0SUB1160 

720 C-STICK(STI) 

721 PUTSPRITE5 ,(EJ,FJ),14:PUTSPRITE6,(EJ+1 
6 ,FJ ) , 14 

722 PUTSPRITE3,(A$,BJ),10:PUTSPRITE4,(A?+1 

6 , B % ) , 1 0 

723 IFBJ>=FS- 16 THENA$-A$- 1 :IFEj< 1 THENA ?-(2 
24+( Ai-E% )):BJ-BS+1 

725 E % = E %-1 : IFE$<0THENEt-224:FS = F? + 1 
727 FORI=1TO30:NEXTI 
730 IFC = 1THEN G0T0740 ELSE G0T0720 
740 G0SUB1 080 :G0SUB480 
750 RETURN 
60 REM 

770 IF PO I NT (A56 + 18,B5o+17) = 12THENG0SUB610 
780 F0RI = 0TO15 :IFPOINT(A?,BK + I) = 12THENG0SU 
B 810 ELSE NEXTI 
790 RETURN 
800 ^NB 

810 REM'TSPLOSIONE 

820 SOUND 8,&B0001 0000 : SOUND 9,&B00010000 : 

SOUND 10,&B00010000 

830 S0UND11,50:SOUND12,100 

840 SOUND 13,0 

850 PUTSPRITE3, (AIE , B% ) , 0 : PUTSPRITE4 , ( AÌ+16 
,B?) ,0:PUTSPRITE2, (A5E + 8,B$) ,8 
860 F0RY=1T0200:NEXTY 
870 PUTSPRITE2,(A?+8,B$),0 

88 0 PUTSPRITEO,(AH,Bt),8 :PUTSPRITE1 ,(A % * 1 6 
,B% ) ,8 

890 FORI-1T0200:NEXTY 
900 CLS:SCREENO 
910 COLOR 1,14 

920 LOCATEO,21 :PRINT" ATTENZIONE!!!" 



tostante. Già di natura, il 
vostro elicottero scende 
verso il mare, per cui dove¬ 
te controbilanciare costan¬ 
temente questa discesa con 
il comando che vi porta in 
alto. Agendo sui pulsanti (o 
sulla cloche) per gli sposta¬ 
menti lateriali, noterete 
che questi non agiscono su¬ 
bito ma, come avviene nella 
realtà, hanno una certa 
inerzia che rende ancor più 
arduo il vostro compito. Un 
buon sistema per atterrare 
sulla nave (!!) è quello di ca¬ 
larvi verticalmente fino ad 
una altezza che reputate 
appena sufficiente a far 
passare sotto di voi la nave 
e quindi lasciare qualsiasi 
comando; badate bene però 
che l’impatto deve essere 
estremamente dolce per cui 
calcolate bene l’altezza se 
non volete vedere il vostro 


il 













elicottero trasformarsi in 
una graziosa nuvoletta ros¬ 
sa. 

I comandi 

Se volete rendere il game 
più realistico munitevi del 
joystick e, dopo averlo inse¬ 
rito in porta 1, azionatelo 
come se fosse la elodie del¬ 
l’elicottero. 

Giocando da tastiera usate 
i tasti cursore “su”, “sini¬ 
stra” e “destra” ma non 
“giù” in quanto, come già 
detto, il vostro elicottero 
scende già da solo senza bi¬ 
sogno di aiuto. 
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930 BEEP 

940 PRINT"{19C192}" 

950 PRINT 

960 PRINT"L'ELICOTTERO E' ANDATO DISTRUTTO 
! ":PRINT 

970 PRINT"Hai recuperato »;HOS; :IFHOS=1 THE 
N PRINT" per sona " E LSEPRI NT "persone" 

975 PRINT"dalla nave nella quale M ;:IFBOA = 
ITHENPRINT"si trovava ancora ";HOS;"fer 
ito"ELSEPRINT"si trovavano ancora ";BOA;" 
feriti . " 

990 IFBOA>OTHENPRINT:PRINT"Tutti i passegg 
eri della nave sono morti!" 

991 PRINT :IFHEL>OTHENPRINT"La stessa sorte 
e' toccata ai feriti che si trovavano sul 

l'elicottero.":PRINT 

1000 IFHOS>6THENPRINT"Hai fatto un buon la 
voro, ma e' stato tutto inutile!" 

1010 PRINT s PRINT"PREMI LA BARRA-SPAZIO 0 I 
L TASTO FUOCO PER GIOCARE" 

10 40 IFSTRIG(1)»-10RSTRIG(0)«^1THENRUN 
1 070 GOT010 4 0 

1075 REM SUONO 
1 080 SOUND6,15 
1090 SOUND7,&B10000111 
1100 80UND8,&B00011111 
1110 SOUND9 , &B0001 1 1 1 1 
1120 SOUND 10 , &B00011 1 1 1 
1130 SOUND11 i 0 : SOUND 12,1 

11 HO SOUND 13,12 
1150 RETURN 

1160 REM GARA CONCLUSA 
1170 SCREENO 
1180 LOCATEO,21 
1190 F0RI-1T08 : P RI N*T :NEXTI 

1 200 PRINT :PRINT" HAI COMPLETATO LA MISSIO 
NE . " 

1210 PRINT:PRINT : PRINT" COMPLIMENTI!!!" 
1220 PRINT:PRINT" TUTTI SONO SOPRAVVISSUTI 

1230 F0RI-1T08:PRINT:NEXTI 

12 40 LOCATEO,21:PRINT"Premi la barra-spazi 

o o il tasto fuoco" 

1 250 IFSTRIG(1 )--1ORSTRIG(0)--1THENRUN 
1290 END 

10000 CLS: COLOR 1,14 

10010 PRINT" MISSIONE PERICOLOSA" 

10015 PRINT"-" 

10100 PRINT 

10150 PRINT"Premi la barra-spazio o il tas 
to fuoco per iniziare" 

0155 STRIG(0)0N:STRIG(1 )0N:FB-STRIG'(1 ) :SB 
-STRIG(O) 

10156 IFSB--1THENSTI-0:RETURN 

10157 IFFB--1THENSTI»1:RETURN 

10158 GOTO10155 
10180 RETURN 

60000 FORZAITO15 

60001 COLOR Z:PRINTZ : IFINKEY$ = ""THEN60001 

60002 NEXTZ 












Generatore di caratteri 



1 0 1 

J 20 1 CARICATORE DATI 
30 ; 

40 *' 

50 0PEN"cas:setmemo"FOR OUTPUT AS#1 
60 FOR L-0 TO 751 

70 INPUT A$:PRINT#1 ,A$; :IFLEN(A$)-1 THEN P 
RINT# 1 , " "{ 

80 NEXTL:CLOSE 


1 0 » 

20 ' 

30 ' LOADER SET CARATTERI 
40 » 

50 ' by P.Todorovich 
60 » 

70 SCREEN1:CLS 

75 PRINT:PRINT" JACKSON SOFT COMPILATION” 
80 0PEN"cas:"FOR INPUT AS#1 
85 FOR A-BASE(7)+264 TO BASE(7)+1015 
90 VPOKEA, V A L (”&H" + INPUT$(1 ,1 )+INPUT$(1 ,1 ) 
) 

100 NEXT ArCLOSE 

110 CLS : PRINT:PRINT"CARATTERI RIDEFINITI:" 
:PRINT 

120 PRINT"abcdefghijklmnopqrstuvwxyz":PRIN 
T : PRINT"ABCDEFGHIJKLMNOPQRSTUVWXYZ":PRINT: 
PRINT" 1 2 34567890 ! @#$*“&*()'-♦;: " 

130 PRINT:PRINT 


38 38 38 38 38 0 38 0 6C 6C 24 

48 0 0 0 0 44 FE 44 44 44 

FE 44 0 1 0 7 C 40 7C 4 7C 10 0 

E 2 A4 E8 10 2 E 4a 8 E 0 60 90 

80 40 AO 90 E8 0 38 38 8 30 0 

0 0 0 1 8 30 60 60 60 30 1 8 

0 30 18 C C C 18 30 0 0 18 

7E 3C 7E 18 0 0 0 10 10 7C 

1818 0 0 0 0 0 0 0 C C 

1 8 0 0 0 7E 7E 0 0 0 0 

0 0 0 01818 0 0 0 2 4 

8 10 20 0 7C 44 4C 54 64 64 



Ecco una simpatica utility 
che vi permetterà di ridefi¬ 
nire sul vostro computer il 
set di caratteri disponibile 
all’accensione con un altro 
da noi proposto o di vostra 
ideazione. 

Battendo in input al primo 
programma la lunga lista di 
numeri presentata, verrà 
prodotto un file sequenzia¬ 
le su cassetta contenente 
tutti i dati. 

Questi numeri, a blocchi di 
otto, definiscono l’aspetto 
di ciascun carattere del set 
ASCII compreso tra 
chr$(33) e chr$(126). 
Immaginando ogni caratte¬ 
re come uno sprite di 8*8 
punti, ogni dato inserito 
programma un vettore oriz- 
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zontale di 8 punti, il cui s— 
to acceso/spento è legato al¬ 
la corrispondenza binaria 
del numero. 

Il secondo listato consente 
infine di caricare i dati del 
file sequenziale prodotto in 
precedenza, nelle corrette 
locazioni della memoria vi¬ 
deo e visualizzare i nuovi 
caratteri. 

Aggiungiamo che il pro¬ 
gramma lavora solo nel mo¬ 
do di schermo SCREEN1, e 
che ogni comando SCREEN 
ripristina il set normale. 
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Michelle e Hey Jude 



1 0 

SCREENO:C0 

LOR15,1 :WIDTH(39 ) 

: C LS 

1 5 

KEY(1)ON:K 

EY(2)ON 



20 

LOCATEO,0 : 

PRINT"E 19C 

2151 BEATLES H5C21 

5}" 





30 

L0CATS3,4 : 

PRINT”SCEGLI :" 


40 

LOCATE 1 ,7 : 

PRINT"[FI] 

MICHELLE (Lennon M 

cCa 

r t n e y ) " 




95 

LOCATE1 ,9 : 

PRINT"[F2] 

HEY JUDE (Lennon M 

cCa 

r tney ) ” 




50 

ON KEY GOSUB100,1620 



70 

G0T020 




1 00 

REM{20A77 

} 



1 20 

REM{A77 } 



t A 7 7 1 

1 40 

REM E A7 7 ì 

MICHELLE 

1 985 

( A 7 7 ] 

1 60 

REM{A77} 

Lennon-McCartney 

{ A 7 7 } 

1 80 

REM E A771 



f A77 1 


Quando nel 1968 Lennon e 
Me Cartney scrissero que¬ 
ste canzoni certo non 
avrebbero mai immaginato 
che un giorno Michelle e 
Hey Jude sarebbero state 
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suonate da un computer! 
Questo programma dì circa 
duemila tìytes, scritto uti¬ 
lizzando il macrolinguag¬ 
gio dell’M.S.X. permette ap¬ 
punto di eseguire questi 
motivi, tratti dallo spartito 


200 REM{A77 ì MSXed by P.F. (A77} 

220 REM{A77) {A 7 7} 

240 REM{20A77I 

260 REM 

280 G0SUB1040 

300 PLAY"TI 50","TI 50","TI 50" 

320 PLAY"05L4G.R8L2G","04L4ECEC","03L1C" 
340 PLAY"R4L4G+D+","04L4FCEC","03L1F" 

360 PLAY"05L4DGDC+","04L4F03A+04L4F03L4A+" 
, " 0 3 L 1 A + " 

380 PLAY"05L4CD+F+D+","04L4D+03L4A04L4D+03 
L4A"."02L1G+" 

400 PLAY"05L2DL4CD+","04L4D03L4G04L2D","02 
L2GD" 

4 20 P L A Y " 0 5 L 2 D . R 4 " , "04L4D03L4GO4L4DO3L4 " , " 
03 L1G" 

440 PLAY"05L4G.R8L2G","04L4ECEC","03L1C" 
460 PLAY"R4L4G + D + ","04L4FCFC","03L1F" ♦ 

480 PLAY"05L4DGDC"","04L4F03A+04L4F03L4A+" 
,"03L1A+" 

500 PLAY"05L4CD+F+D+" t "04L4D+03L4A04L4D+03 
L4A","02L1G+" 

520 PLAY"05L2DL4CD+","04L4D03L4G04L2D","02 
L2GD" 

540 PLAY"05L2DR4R805L8G","04L4DO3L4GO4L4D0 
3 L 4 G","03L1G" 

560 PLAY"06L4C05L8A+G06L4C05L8A+G","04L2C. 
L 4 D + " , " 0 2 L 1 C " 

580 PLAY"06L4DL2CR4", "04L2C.L4D+","02L1C" 
600 PLAY"R805L8G+G+GL4G+D+"."04L2C.L4D+"," 
0 2 L 1 G + " 

620 PLAY"L1D + ", "04L4CD + CD+","02L1C" 

640 PLAY"R8L8GGG06L4C05L4G","04L2C.L4d+ 

660 PLAY"05L4FD«-R8L8D + L4F","04L4C.R8L4C.R8 
" , " 0 2 L 1 C " 

680 PLAY"05L8GR8L8GR8L8GR8L8G","04L2CC","0 
2 L1 C " 

700 PLAY"05L8GR8L8GR8L8GR8L8G","03L2BB" 

720 PLAY"05L2GL4FD+","03L2BB" 

740 PLAY"05L2D.R4","03L4G04L4G03L4G04L4G", 
" 0 2 L 1 G " 

760 PLAY"05L4G.R8L2G","04L4ECEC","03L1C" 
780 PLAY"R4L4G+D+","04L4FCFC","03L1F" 
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don^fc nake it bad. 
nt-ake it betifce*~_ 
n to your heart 

«ake it- 

£°2u* 

-e you let he-*- under your 

«»ke it 

irvy ti»e you feel thè pain 
ude carry thè world 

it S3ST tai **'• - *“> 

r« lus «orld a little 

r> to your heart 
can start to nake it bette*'. 



800 RLAY"05L‘tDGDC + " , "04L4F03A+04L4F03L4A+" 
, "03L1A+" 

820 PLAY"05L4CD+F+D+" , "04L4D<-03L4A04L4Dì-03 
I L 4 A " , " 0 2 L 1 G + " 

840 PLAY"05L2DL4C18DD+","04L4D03L4G04L2D", 
"02L2GD" 

860 PLAY"L2DR4L8CD" , "L4D0 3L4G04L4D03L4G"," 
0 2 L 1 G " 

880 PLAY"L4D+CFD","L2C03L2B","02L2CG" 

900 PLAY H L4D+CF.L8D","03L2A+A","02L2CF" 

920 PLAY"L2D + L4DC","0 3L1G*" , "02L2G+" 

9 40 PLAY"04L2B05L4CD","03L1G","02L1G" 

960 PLAY”05L1C", "04L2C03L2B"."02L1C" 

980 PLAY"05L1C" ,"03L2G-iG","02L2G + G" 

1000 PLAY"05L1C.","03L1C.","02L1C." 

1 020 CLS: RETURN : END 
1040 REM 

1 060 SCREEN0 : COLOR 1 ,15 :KEY0FF 
1080 WIDTH(39) 

1100 LOCATEO,0 :PRINT"(39A78}" 

1120 L0CATE13,2:PRINT"MICHELLE" 

1140 L0CATE9 , 3 :PRINT"Lennon-McCartney" 


per tastiere elettroniche e, 
contemporaneamente, vi¬ 
sualizza il testo della canzo¬ 
ne. Poiché vengono utiliz¬ 
zate tutte e tre le voci del 
computer, il risultato è 
quello di un suono molto 
17 














gradevole e piano. 

Una volta caricato il pro¬ 
gramma-cassetta, potrete 
inoltre modificare il timbro 
delle voci aggiungendo nel¬ 
la linea 15 le istruzioni Sn 
e Mn che modificano la for- 


1160 LOCATEO,5 :PRI NT"M i ehel1e ma belle The 
se are words that" 

1180 PRINT"go together well my Michelle" 
1200 PRINT"Michelle ma belle sont les mots 
qui ” 

1220 PRINT"tres bien ensemble, tres bien e 
nsemble" 

1240 PRINT"I love you I love you I love yo 
u Taths" 

1260 PRINT"all I wont to sais Until I find 
a way" 

1280 PRINT"I wi11 say thè only words I kno 
w that" 

1 300 PRINT"you'11 understand... ." 

1320 PRINT"Michelle ma belle sont les mots 
qui " 

1340 PRINT"tres bien ensemble, tres bien e 
nsemble" 

1360 PRINT"I wi11 say thè only words I kno 
w that" 

1380 PRINT"you*11 understand, my Michelle. 

M 

1900 LOCATEO,18 :PRINT"{39A78 ) " 

1 A20 RETURN 
1990 REM(20A771 
I960 REMiA77) 

1980 REMiA77) HEY JUDE 1985 


{ A 7 7 i 

.... . { A77 } 

1 500 REM{A771 Lennon-McCartney {A77} 


{ A77 } 
( A77 } 
{ A 7 7 } 


1520 REM(A77} 

1590 REM{A771 Msxed by P.F. 

1 560 REM{A77 ì 
580 REM{2 0 A 7 7} 

1600 REM 

1620 SCREENO:WIDTH(39):C0L0R1,15 :KEYOFF 
16110 G0SUB2380 

1 660 PLAY"V7T13505L9GL2EL8EEGA","V7T135R90 
5L2C011L2G" , "V7T1 3 5 R 9 0 3 L1 C" 

1 680 PLAY"05L2DR1IL8DE","011L2BG","03L1G" 

17 00 PLAY" 05L1JF06L14CL8CC05L8BL1 6GR16","05L 
2D09L2G","0 3 L1G" 

1720 PLAY"L8AGL2EL9G","05L2CL2C","03L1C" 

17 90 PLAY"L16AR16L11AL8A06L8DC05B06C05A","0 
5L2FF”,"0 3 L1F" 

17 60 PLAY"L2GL8CDEA" ,"05L2C011L2G","03L1C" 
17 80 PLAY"L8AGR8L8GFE011L8B","05L2D01IL2G"," 
0 3 L 1 A " 

1 800 PLAY"L9CL2CR8L805G","05L2C09L2G","03L 
1 C" 

1820 PLAY"05L2EL8EEGA","05L2C09L2G","TI 500 
3 L 1 C " 

1390 PLAY"05L2D.L8DE", " 0 9 L 2 B G ","03L1G" 

1 860 PLAY"05L9F06L9CL8CC05L8BL16GR16","05L 
2D09L2G" ,"0 3 L1G" 

1880 PLAY"L8AGL2EL9G","05L2CL2C","03L1C" 
1900 PLAY"L16AR16L9AL8A06L8DC05B06C05A","0 
5L2FF”,"0 3 L1F" 

5L2FF","0 3 L1F" 

1920 PLAY"L2GL8CDEA","05L2C09L2G","03L1C" 
'1990 PLAY"L9G.L8GFL9E09L8B","05L2D09L2G" 

0 3 L 1 A " 

1 960 PLAY"09L9 B0 5 L 2 C R 9" ,"09L2CD" ,"03L1C" 
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1980 PLAY"R805L8C06L8C05L8A+AGGF","04L2EC" 

, "03L1C" 

2000 PLAY"L4A06L4C05L4A06L4C","L2FE", " L1 F " 
2020 PLAY"05L4F06L8C05L8AAGL4F","L2DC","LI 
D" 

2040 PLAY"L4GL8AGL4GL8FE","04L2BG","LIG" 
2060 PLAY"L4EL8DCL2C","04L2CD","03L1C" 

2080 PLAY"R805L8C06L8C05L8AAGGF" f "04L2EC", 
"03L1C" 

2100 PLAY"L4A06L4C05L4A06L4C", " L 2 F E ","L1F" 
2120 PLAY"05L4F06L8C05L8AAGL4F","L2DC","LI 
D" 

2140* PLAY"L4GR8L8AL4GF","0 4L2BG","LIG" 

2160 PLAY"L4EL8DCL2C","04L2CE","03L1C" 

2180 PLAY"05L1DL8D","04L1BL8B","05L4G04l4G 
R 4 L 4 G . " 

2200 PLAY"05L4GL2EL8EEGA","R405L2C04L2G"," 
R 4 0 3 L1 C " 

2220 PLAY"05L2DR4L8DE","04L2BG","03L1G" 
2240 PLAY"05L4F06L4CL8CC05L8BL16GR16", " 0 5 L 
2D04L2G","0 3 L1G" 

2260 PLAY"L8AGL2EL4G" , "05L2CL2C","0 3L1C" 
2280 PLAY"L16AR16L4AL8A06L8DC05B06C05A","0 
5L2FF","0 3 L1F" 

2300 PLAY"L2GL8CDEA","05L2C04L2G","03L1C" 
2320 PLAY"L4G.L8GFL4E04L8B","05L2D04L2G"," 
03L1A" 

2340 PLAY"04L4B05L2C.","V804L1C","V903L1C" 
2360 CLS: RETURN : END 
2380 REM 

2400 LOCATE13,0:PRINT"HEY JUDE" 

2420 LOCAVE9,1 :PRINT"Lennon-McCartney" 

2440 LOCATEO,3 :PRINT"Hey Jude don’t make i 
t bad. Take a sad" 

2460 PRINT"song and make it better. Remem 
ber t o " 

2480 PRINT"let her in to your heart":PRINT 
"Then you can start to make it better." 
2500 PRINT"Hey Jude don’t be afraid. You w 
ere " 

2520 PRINT"made to go aut and get her" 

2540 PRINT"The minute you let her under yo 
u r s k i n " 

560 PRINT"Then you begin to make it bette 
r . " 

2580 PRINT"And any time you feel thè pain 

2600 PRINT"Hey Jude refrain don’t carry th 
e world":PRINT"up on your shoulders." 

2620 PRINT"For well you know tat it's a fo 
ol ":PRINT"Who plays it cool " 

2640 PRINT"By making his world a little co 
lder 

2660 PRINT"Hey Jude don't make it bad. Tak 
e a sad" 

2680 PRINT"song and make it better. Remem 
ber t o " 

2700 PRINT"let her in to your heart":PRINT 
"Then you can start to make it better." 
2720 RETURN 




■■ 


ma e l’inviluppo della for¬ 
ma d’onda. 

Buon divertimento! 
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Laser 


Questo è un gioco partico¬ 
larmente veloce che non 
mancherà di entusiasmare 
gli appassionati degli arca¬ 
de games. Da una base mo¬ 
bile, dovete distruggere la 








1 REM LASER 

2 REM INIZIALIZZAZIONE 
5 GOSUBÒOOOO 

IO KEYOFF:SCREEN1,2:COLOR 15,1,1 

15 FORI-1T08:READQ: A$-A$ +CHR$(Q):NEXT:SPRI 

TE$(0)=A$:A$="" 

20 F0RI=1T032:READQ:A$=A$+CHR$(Q):NEXT:SPR 
I TE $(1 )-A$ 

25 DEFUSR0 = 60000! :DEFUSR1=601 18! :POKE59996 
! , 1 0 : POKE5999T!,1:P0KE59998!,3:POKE59999!, 
4:DEFUSR2=60220!:FORI=60220!T060248!:READQ 
:POKEI,Q:NEXT 

27 F0RI-1088T01 344STEP64:FORJ=0T07 :READQ:V 
POKEI+J,Q:NEXT:NEXT 

30 PUTSPRITE1,(100,45),7:PUTSPRITEO,(127,1 
00) , 1 1 :NM = 3:'0NSTRIGG0SUB150 


flotta spaziale nemica uti¬ 
lizzando il potente cannone 
laser di cui disponete, ali¬ 
mentato da diversi serbatoi 
di energia. La flotta nemi¬ 
ca, composta da piccole 
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astronavi da combattimen¬ 
to e da una astronave ma¬ 
dre che le rifornisce, cer¬ 
cherà in tutti i modi di col¬ 
pire il vostro cannone o i 


35 CLS.: PRINT" »»*** LASER ***** ”:F0 

RI-1TOI8 :PRINT:NEXT:PRINT"PREMI UN TASTO P 
ER INIZIARE" 

40 IFINKEY$=""THEND-USR1 (D ) :FORI- 1T0100 : NE 
XT: PLAY"L9M1OOOS14N33" :G0T035 
50 CLS:PUTSPRITE1,(100,200) 

52 VP0KE8209,2 25 :VP0KE8210,99:VPOKE8211,17 
7 :VPOKE821 2,97:VPOKE8213,291 
55 F0RI=6720T06751 :VPOKEI,136 :NEXT:FORI-68 
16T06897:VP0KEI,23 : NEXT:VP0KE6787,1 60:VP0K 
E6799,160:VPOKE6812,160 

57 PG=15:G0SUB1000 rPUTSPRITEO,(120,150),15 
:STRIG(0)ON 

59 REM CONTROLLO 

60 P0KE59999!,8:D=USR0(D):PG=INT(VPEEK(691 
3 )/8) 

65 IFPH-2THENGOSUB900ELSEIFPH-OTHENGOSUB22 
0 :G0T070 
67 G06UB250 • 

70 IFRNDC1)<.01ANDPH=1THENPH=2 
75 IFPH-0THEN80 

77 IFRND(1 X.80RPH-2THEN80 

78 GOSUB190 

80 IFVPEEK(6912J-200THEN500 
90 GOT060 

199 REM LASER GIOCATORE 

150 D-RNDd ) :STRIG(0)OFF:PLAY"19mlOOOs1 9n3 
3" 

155 IH = 0:12 = 0 :FORII-1T09:IFGSCI1 ,1)-PGTHEN 
12-11 

156 NEXT:POKE5 9991 !, 1 52 

1 57 IFI2O0THENISP-6 1 99+32*GS(I2,2)+PG:IH- 

2 :G0T0165 

160 IM-VPEEK(6917):IP-PG»8 

162 IFIP<IM+20RIP-IM>60RVPEEK(6916)-200THE 
NISP-6199+PG:G0T0165 

163 IH-1:ISP-6208+PG 

165 P0KE59992!,ISPMOD256:POKE59993!,ISP/25 
6:I3=6720+PG:POKE59999!,I3MOD256:POKE59995 
! ,I3/256 :D = USR2(D) 

170 POKE59991 ! ,32 : FORI 3-1T020:NEXT:D-USR2( 
D) 

175 IFIH-1THENGOSUB3O0 
177 IFIH-2THENGOSUB350 
180 STRIG(0)ON: RETURN 

189 REM LASER PICCOLE ASTRONAVI 

190 IFGS(1,1)-OANDGS(2,1)=0ANDGS(3,1)-OAND 
CS(9,1)-0THENRETURNELSESTRIG(0)0FF 

191 FG-FG+1 : IFFG = 5THENFG=1 

192 IFGS(FG,1)=0THEN191 

193 FL-0:K1=0 :P0KE59991!,1 52 : 1 = 61 76 + 32*GS( 
FG,2)+GS(FG,1):POKE59992!,IM0D256:POKE5999 

3 !,1/256 

195 IFVPEEK(6720+GS(FG,1))-136THENJ=6752+G 
S(FG,I):GOT0200 

196 J= 68 1 6 +GS(FG,1):IFGS(FG,1)=PGTHENK1=1 

197 K=GS(FG,1):IFK-30RK-150RK-28THENFL=1 

200 P0KE59999! ,JM0D256 :P0KE59995 ! ,J/256:D» 
USR2(D):IFFL-1THENFORJ = 1T010 : COLOR 1,15,15 







<85* «$> 



PUNTI: 20 


:FORT-1T030:NEXT:PLAY"139m59000s8n2": COLOR 
15,1 ,1 : FORT»1TO30:NEXT:NEXT:GOT0500 
20 2 IFK1=1THENPUTSPRITEO,(100,200):F0RK-1 T 
07:PLAY"164m1OOOsI4n20n21n20n21":NEXT 
205 PLAY"119m380s10n50":POKE59991!,32:D=US 
R2 ( D ) 

210 STRIG(0)0N: RETURN 

219 REM POSIZIONE ASTRONAVE MADRE 

220 IF0S( 1 , 1 ) OOTHEN225 

221 I-INT(RND(1 )*31 + 1 ):IFI-GS(2,1 )0RI-GS(3 
,1 )0RI-GS(4,1 )THEN221ELSEGS(1 ,1 )-I :GS(1 ,2) 
= 0:VP0KE6l4 4 + 1,1 A4 : RETURN 

225 IFGS(2,1 ) OOTHEN230 

226 I-INT(RND(1)*31+1):IFI-GS(1,1)ORI-GS(3 
, 1 )0RI-GS(4,1 )THEN226ELSEGS(2,1 )-I:GS(2,2) 
=0:VP0KE6144+I,144:RETURN 

230 IFGSC3.1)<>0THEN235 


serbatoi di energia. Se riu¬ 
scite a distruggere la navi¬ 
cella madre guadagnate 50 
punti mentre le astronavi 
da combattimento più facili 


23 









LASER 

He * # :* 

UN SERBATO 

IO PI 

ENERGIA E' 

STATO KIST 

RUTTO 


Hai total 

i zzato 

80 punti 

□I 




da colpire, vangono solo 10 
punti. 

I tasti cursore muovono il 
vostro cannone laser men¬ 
tre la barra spazio serve per 


231 I-INT(RND(1)*31+1):IFI-GS(1,1)ORI=GS(2 
,1 )ORI-GS(4,1)THEN231ELSEGS(3,1 )-I:GS(3,2) 
= 0:VP0KE6144 + I,144 : RETURN 

235 IFGS(1t,1 )<>0THEN2 1 10 

236 I-INT(RND(1 )*31+1 ):IFI-GS(1 ,1 )0RI-GS<2 
, 1 JORI» GS( 3,1 )THEN236ELSEGS(1|,1 ) -1 : GS (4,2) 
"0:VP0KE6144*I,144:RETURN 

2110 IFGS ( 1 ,3)»1ANDGS(2,3)-1ANDGS(3,3) = 1AND 
GS(4,3)-1THENPH-1 : RETURN 

2 A 2 J-INT(RND(1)*4t1):IFGS(J,3)-1THEN242 
21(3 VP0KEGS(J,1) + 32*GS(J,2)+61 44,32:GS(J. ,2 
)“GS(J,2)+1 

24 4 IFGS(J, 1 )<>OTHENVPOKEGS(J,1 )+32*GS(J,2 
) +614 4,144 

246 IFRND ( 1 X.10RGS(J,2)> = 7THENGS(J,3)-1 

248 RETURN 

249 REM MOVIMENTO ASTRONAVE MADRE 
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250 IFVPEEK(6916X>200THEN255 
253 MC=2:PUTSPRITE1,(0,15): RETURN 
255 POKE5 9997! , 1 : POKE5 9998!,3:POKE59999!,6 
: D = USR1 (D) :IFVPEEK(6917)>251THENPUTSPRITE1 
,(200,200): RETURN 

260 MC-INT((VPEEK(6917)+8)/8):IFRND(1j< .85 
THENRETURN 

65 IFMC < >GS(1 , 1 )ANDMC<> GS(2,1 )ANDMC < > GS(3 
. 1 )ANDMCOGS( 11 . 1 )THENG0SUB280 
2TO RETURN 

279 RÉM LASER ASTRONAVE MADRE 

280 PLAY"124m1 60s8n67" 

282 STRIG(0)OFF:FL=0:K1=0:POKE59991!,152:1 
-6Z40+MC:POKE59992!,IMOD256:POKE59993l,I/2 
56 

2 8 A IFVPEEK(MC + 6 7 20 ) = 1 36THENJ=6752+MC: GOTO 
290 

286 J = 6 8 1 6 + MC : I FMC = 30RMC =* 1 50RMC-28THENFL=1 

287 IFMC=PGTHENK1 =1 

290 POKE59994!,JM0D256:P0KE59995!,J/256:D- 
US R 2(D) 

291 IFFL»1THENFORJ«1T010:COLOR 1,15,15:F0R 
T-1T030:NEXT:PLAY"139m5900038n2":COLOR 15, 
1 ,1 :F0RT-1T030;NEXT: NEXT:GOT0500 

92 PLAY"124m160s8n67" 

29 3 Ì.FK1 -1 THENPUTSPRITEO, (1 00,200):FORJ-1T 
arÌPLAY"l&4rn1 OOOsl 4n20n2In20n21 " : NEXT 
294 POKE59991! ,32 :D-USR2(D) 

2P5 STRIG(0)0N: RETURN 

299 REM ESPLOSIONE ASTRONAVE MADRE 

300 SC=SC+50:GOSUB1000 

310 PLAY"164m60000s8n20n21n24n28n40n45n43n 
29n20n1513n10" 

320 F0RI4 = 1T060:VP0KE1 4368+INT(RND(1 )*30), 
INT(RND(1)»255 ),:NEXT:SPRITE$(1)=A$ 

330 PUTSPRITE1,(200,200) 

340 RETURN 

349 REM ESPLOSIONE PICCOLE ASTRONAVI 

350 VP0KE6144+GS(I2,1)+32*GS(I2,2),168:SC= 
SC+10 :GOSUB1000 :F0RT=1T030:NEXT 

355 VPOKE6144+GS(I2,1)+32*GS(I2,2),32:GS(I 
2 , 1 ) =0 
360 RETURN 

399 REM POSIZIONE PICCOLE ASTRONAVI 

400 IFGS(1,1)<>00RGS(2,1)<>00RGS(3,1)<>OOR 
GS(4,1)<>0THENSTRIG(0)OFF:GOTO405 

4,0 2 F0RJ = 1T04:GS(J,3)=0:NEXT:PH = 0:RETURN 
405 J-INT(RND(1)*4+1):IFGS(J,1)-0THEN4O5EL 
SESTRIG(0)ON 

407 VPOKE6144+GS(J,1)+32*GS(J,2),32:IFGS(J 
,2)>0THENGS(J,2)=GS(J,2)-1 

410 VPOKE61 44 + GS(J,1 )+32*GS(J,2),144:IFGS( 
J,2)-OTHENVPOKE61 44 + GS(J, 1 ) , 32 : GS ( J ,'1 )=0 
415 RETURN 

499 REM NUOVO GIRO 

500 IFVPEEK(6912)<>200THEN560 

502 STRIG(0)OFF:FORT=1T01 500 :NEXT 
510 CLS:PUTSPRITEO,(100,200):PUTSPRITE1 ,( 1 
00,200):PRINT" ***** LASER *»»»*":PRIN 

T:PRINT:PRINT 


' 




sparare. Il gioco termina 
non appena il nemico riesce 
a colpire il vostro cannone 
oppttre quando vi siano sta¬ 
ti distrutti tutti i serbatoi 
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di energia. 

Per modificare la velocità 
della navicella madre cam¬ 
biate il valore della P0- 
KE59999 nella linea 255. 


515 NM-NM-1:IFNM-0THEN600 

520 PRINT"Uomini a disposizione : " ;NM 

530 FORJ=lT02500:NEXT 

535 F0RJ=1T04:GS(J,1 )=0 :NEXT:PH-0 

550 G0T050 

560 STRIG(0)0FF:F0RT-1T01500:NEXT 
565 CLS:PUTSPRITEO,(100,200)tPUTSPRITEI,(1 
00,200):PRINT" *»**« LASER ***»*":PRIN 

T : PRINT:PRINT 

570 PRINT"UN SERBATOIO DI ENERGIA E'":PRIN 
T"STAT0 DISTRUTTO":PRI NT :PRINT :G0T0515 

599 REM GAME OVER 

600 PRINT:PRINT:PRINT 

610 PRINT" Hai totalizzato ";SC;" punti" 
620 IFINKEY$.'"'THENENDELSE620 
999 REM AGGIORNAMENTO PUNTEGGIO 
1 000 FORI-1T02 3:PRINT:NEXT:PRINT"PUNTI :"iS 
C:CHR$(11); 

1010 RETURN 

9999 REM DATA SPRITES 

10000 DATA24,60,24,60,24,52,122,255 

10010 DATA 15,1 6,32,32,99,1 98,203,254,255,2 
07,199,99,33.48,16,15,240,8,4,4,198,99,211 
,1 27,255,243,227,198,132,12,8,240 

10099 REM DATA LINGUAGGIO MACCHINA LASER 

10100 DATA42,88,234,58,87,234,79,205,44,23 
5,17,32,0,25,237,91,90,234,124,186,194,67, 
235,125,187,194,67,235,201 

10199 REM DATA CARATTERI 

10200 DATA90,165,90,165,90,165,66,129 
10202 DATA24,1 26,213,171 ,255,66,60,24 
10204 DATA24,24,24,24,24,24,24,24 
10206 DATA24,36,90,165,219,165,219,255 
10208 DATA2,144,4,17,64,4,161,8 

60000 CLS:RESTORE60020 

0010 FORI-600001T060217!:READQ:POKEI,Q:NE 
XT:RESTORE: RETURN 

60020 DAT A 21 9,170,2 30,240,33,92,234,94,246 
,8,0,0,0,0,0,0,0,0,0,0,0,211,170,219,169,7 
1,0,0,0,0,0,0,0,0 

60030 DATAO,0,0,230,128,194,151,234,203,91 
,20 2', 151,234,62,3,50,94,234,195,209,234,12 
0,230,64,194,170,234,203,83,202,170,234,62 
,2 

60040 DATA50,94,234,195,209,234,120,230,32 
,194,189,234,203,67,202,189,234,62,0,50,94 
,234,195,209,234,120,230,16,194,208,234,20 
3,75,202,208,234,62,1,50,94,234,195,209,23 
4,201,62,0,50,93,234,58 

60050 DATA93,234,203,39,203,39,79,6,0,33,0 
,27,9,58,95,234,71,58,94,234,87,254,0,194, 
250,234,205,27,235,121,152,79,195,44,235,2 
54 

60060 DATAI,194,6,235,35,205,27,235,195,24 
4,234,254,2,194,20,235,205,27,235,121,128, 
79,195,44,235,35,205,27,235,195,14,235,125 
,243.211 

60070 DATA153,124,211,153,0,0,0,0,219,152, 
79,183,251,201,125,243,211,153,124,246.. 64, 

21 ^ 
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Master Mind 



1 REM (2 5 C171 ) 

2 REM (C1711 (C171) 

3 REM {C171 1 MASTER {C171 } 

4 REM {C171 } ' (C171 ( 

5 REM {C171J M S X 1985 by {0171} 

6 REM {0171} {0171} 

7 REM {0171} PAOLO FERRAMI {0171} 

8 REM {0171} {0171} 

9 REM { 250171 } 

50 REM 


60 DIM A(4):DIM B(4 ) :DIM 0(4):GOSUB1000 
70 SCREEN1 :CLS:KE Y OFF:WIDTH(30):GOSUB760 : 
COLORI 5,12,12:CLS 
80 REM 

90 REM PREPARAZIONE GIOCO 

100 REM 

110 INPUT"QUANTI GIOCATORI";G 
120 PRINT: DIM V$(G) 

130 IFG=1THENINPUT"NOME DEL GIOCATORE";V$( 
1):GOTO220 
140 DIMX(G) 

150 PRINT:FORQ=1TOG 

160 PRINT"GIOCATORE N.";Q 

170 INPUT"NOME";V$(Q) 

180 PRINT:NEXTQ 
90 REM 

200 REM FASE GIOCO 


Master Mind è un famoso 
gioco di pazienza in cui si 
tratta di indovinare il codi¬ 
ce segreto scelto dal compu¬ 
ter e formato da quattro 
simboli scelti a caso fra sei. 
Dopo aver lanciato il pro¬ 
gramma vi verrà chiesto di 
fare il primo tentativo: uti¬ 
lizzando i tasti dall’l al 6 
inserite i 4 simboli che desi- 
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<3 1 OC'AT'O R 

' « 

d* 

UJ 

n ij n ero? 

3456 

NUMERO? 

8 8 1_ 2 

NUMERO ? 

3391 

NUMERO? 

2453 

f-j U M E R 0 ? 

5555 

N U MERO?' 

4 4 4 4 

H U MERO? 

6 6 6 6 

N UMERO? 

6 6 5 3 

H U MERO? 

6 55 4 

N U M E R 0 ? 

m' r 6 3 


il 


— 

► PIERO' " 


± 

► 3 4 5 6 


V 

► 2 4 5 3 


3 

► 5 5 5 5 


4 

► 4444 


er 

► 6 6 6 6 

y 1 

& 

► 6653 


7 

► 6 5 5 4 



.. ► <6 Ili 



derate e dopo qualche se¬ 
condo vi verrà fornita la ri¬ 
sposta: un pallino bianco 
significa che avete indovi¬ 
nato una figura, ma che 
questa è nella posizione 
sbagliata, mentre un palli¬ 
no nero vi avverte che una 
figura, oltre ad essere giu¬ 
sta, è anche nella giusta po¬ 
sizione. Se la risposta è for- 
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1 0 REM 

220 FORE-1TOG 

230 CLS:PRINT"CIOCATORE N . "; E ;"-(C207 1"; V $ 

(E):PRINT 

2A0 F-RND(-TIME) 

250 L$-"{AA66Ì":G$="{AA65}" 

260 FOR 1-1 TO A 
270 F-RND(1)*6 
280 B(I)-1+INT(F) 

290 NEXT I 

300 INPUT"NUMERO";C$ 

310 S=0:D-0 
320 FOR 1-1 TO A 

330 C(I). ASC(MID$(C$,I,1)):C(I)-C(I)-A8 
3 A 0 IFC(I)<1 OR C(I)> 6 THEN PLAY"T20001 LAC 
" , "T2000.1 LAE" , "T20001 LAG" : GOTO300 
350 A(I)=B(I) 

360 NEXT I 

370 FOR 1-1 TO A 

380 IF A(I)OCC-I) THENAOO 

390 S-S*ì sA(I) — 1:C(X)-0 

A00 NEXT I 

AIO FOR 1-1 TO A :FOR J=1 TO A 
A20 IF A(I)OCtJ) THEN A AO 
A30 D-D+1: A ( I)= - 1:C(J)=0 
AAO NEXT J:NEXT I 
A50 S$-LEFT$(L$,S*2) 

A60 D$-LEFT$(G$,D*2) 

A70 Y(E)-Y(E)+1 

A80 PRINTTABf1A)Y(E);"(C207)";C$;" ";S$; 

Dt 








1 -►PIERO 


GIOCATO 

RE N . 

M U MERO ? 

3 4 5 6 

N UMERO? 
N y M ERO'”? 

N UMERO ? 

8 912 
389 1 
2 4 53 

M U.M ERO '? 

c- J=J cr_ «=; 

H U MERO ? 

4 4 4 4 

n y ti. e r o ■? 

6 - 

N U MERO ? 

6 6 5 3 

w y'n'E R o ■?" 

6 5 5 4 

NUM E RO ? 

W5 G 2 


1 

► 3456 


2 

► 2 4 5° 


3 

► 5 5 5 5 

9 

4 

► 4444 


5 

► 6666 

'*£IF*SEr 

6 

► 6 6 5 3 : 



► 6 5 5 4 


s 

fi 



■ 


490 IF S.<>4 THEN 300 
500 G0SUB640 
510 NEXTE 

520 IF PLAY(0)--1 THEN520 
v30 REM 

540 REM RISULTATI 
50 REM 
560 CLS 

570 PRINT"{29A77}" 

580 PRINT 

590 PRINT" RISULTATI" 

600 FOR U-1T0G 

610 PRINT" ";V$(U);TAB(16);Y(U);" TENTATIV 
I" 

620 PRINT:NEXT U 
630 PRINT:PRINT:END 
640 REM 

650 REM MUSICA 
60 REM 

670 PLAY"T25005L4ECEC", "T.25 00 4L8CGEGCGEG" 
680 PLAY"L4EGEC","L8CGEGCGEG" 

690 PLAY"DGFD","L803B04GDG03B04GBG" 

700 PLAY"L2EC","L8CGEGCGEG" 

710 PLAY"05L4ECEC","04L8CGEGCGEG" 

720 PLAY;'L4EGEC" , "L8CGEGCGEG" 

730 PLAY"DGFD","L803B04GDG03B04GBG" 

740 PLAY"LICL4C","L8CGEGCGEGCC" 

750 RETURN 
760 REM 

770 REM ISTRUZIONI 
780 REM 


mata da 2 pallini bianchi e 
da 1 nero, per esempio, vuol 
dire che avete indovinato 3 
simboli di cui uno è nella 
posizione giusta. Se riusci¬ 
te ad indovinare il codice 
segreto in 8 tentativi avete 
vinto la partita. 

Se trovate il gioco un po’ 
difficile potete sostituire la 
routine “partita persa” con 
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un’altra che offra la possi¬ 
bilità dopo 8 tentativi di 
proseguire nella ricerca del 
codice. 

Se al contrario, volete ren¬ 
dere il gioco più complesso 
vi basterà inserire un setti¬ 
mo simbolo. 


Tratto da 
“PaperSoft” 
n° 20 - '85 


Non perdete il 
prossimo numero di 
Jackson Soft 
Compilation. Lo 
troverete in edicola il 
10 Ottobre. 


790 COLORÌ), 1 5,9 : CLS 
800 PRINT 

810 PRINT"{8C209 } MASTER {8C209 }" 

820 PRINT 

830 PRINT"DOVETE INDOVINARE UN NUMERO" 

890 PRINT"DI QUATTRO CIFRE NEL MINOR" 

850 PRINT"NUMERO DI TENTATIVI POSSIBILE." 
860 PRINT"LE CIFRE A DISPOSIZIONE VANNO" 
870 PRINT"DA 1 A 6" 

880 PRINT 

890 PRINT"IL SIMBOLO {A 6 6} STA A INDICARE 

tt 

900 PRINT"UN NUMERO ESATTO IN POSIZIONE" 
910 PRINT"CORRETTA, IL SIMBOLO {A65 > INDIC 
A" 

920 PRINT"CHE IL NUMERO E' CORRETTO MA" 

930 PIJINT"NON LA POSIZIONE." 

990 GOSUB 640 

950 IF PLAY(0)= — 1 THEN 950 

960 LOCATEO,21 

970 PRINT"Premi [SPAZIO]" 

980 IF STRIG(0)-0 THEN 980 
990 RETURN 

1000 SCREEN2,0:G0SUB -2000 
1020 C0L0R7,1,1:CLS 
1030 PSET(20,100) 

1090 DRAW"U80F20E20D80" 

1 050 COLOR 15 :BEEP 

060 PSET(110,100):DRAW"U80L90D80":PSET(11 
0,70):LINE-STEP(-90,0) 

1 070 COLOR 3 :BEEP 
1 080 PSETO 20.1 00 ) 

1 090 DRAWR30U25L30U25R30" 

1100 C0L0R10.-BEEP 

1110 PSET(160,100):DRAW"U80R35" 

1120 PSET( 1 60,20) : DRAWL35" 

1130 COLOR9:BEEP 

1190 PSETCl98,100):DRAW"L30U50R30" 

1150 PSET(168,75):DRAW"R20" 

1 160 COLORI 3 :BEEP 
1170 PSET(203,100) 

180 DRAWU80R90D90L90F.90" 

1190 F0RI--8T0255 

1200 PUTSPRITE9,(I,80),15,0 :BEEP . 

1210 NEXTI 

1220 FORI=1T0500:NEXT 

1230 RETURN 

1290 END 

2000 REM 

2010 REM SPRITE 

2020 REM 

2030 B $ = "" 

2090 FOR I -1 TO 8 
2050 READA$ 

2060 B$«B$*CHR$(VAL("&B"*A$)) 

2070 NEXT I 

2080 SPRITE$(0)=B$ 

2090 DATA 0,0,00011000,01100110,10011001,0 
1011010,00100100,00011000 
2100 RETURN 









ELENCO DEI TITOLI DISPONIBILI 


I tascabili Jackson sono uno 
strumento prezioso per chi lavora 
con il computer. 

•SINCLAIR SPECTRUM cod. 017H 
-VIC 20 cod. 005H 
-COMMODORE 64 cod. 002H 
PC IBM cod. 018H 
-APPLE Ile cod. 003H 
•SHARP MZ80A cod. 014H 
LA PROGRAMMAZIONE cod. 004H 
-WORD STAR cod. 008H 
•UNIX cod. 009H 
■LOGO cod. 020H 
-MS-DOS cod. 019H 
-PROGRAMMI DI STATISTICA cod. 
015H 

•CP/M cod. 01 IH 
•PC-DOS cod. 012H 


•BASIC cod. 007H 
-ASSEMBLER Z80 cod. 016H 
-ASSEMBLER 6502 cod. 013H 
•COBOL cod. 001H 
■FORTRAN 77 cod. 01 OH 
-PASCAL cod. 006H 





ritagliare (o fotocopiare) e spedire in busta chiusa a: 

GRUPPO EDITORIALE JACKSON - Divisione Libri - Via Rosellini, 12 - 20124 Milano 

CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 


G Pagherò contrassegno al postino il prezzo indicato più L. 3.000 per contributo fìsso spese di spedizione. 
Condizioni di pagamento con esenzione del contributo spese di spedizione: 

G Allego assegno della Banca □ Allego fotocopia del versamento sul c/c n. 11666203 a voi intestato 

N°_ _ □ Allego fotocopia di versamento su vaglia postale a voi intestato 

Nome e Cognome 

via____ __ _ 

Cap Citta Prov 

Data Firma 

Spazio riservato alle Aziende Si richiede l'emissione di fattura 
Partita, VA. I I I I I I I I I 11 I I 


ORDINE 
MINIMO 
L 50 OOO 


OGNI TASCABILE COSTA L. 8.500 






























CONOSCERE 
IL PERSONAL 

Cod. 008D Pag. 48 Lire 9.000 


Totale 


Prezzo unitario 


Prezzo totale 


GIOCHI CON 
IL COMPUTER 

Cod. 0060 Pag. 48 Lire 9.000 


GRUPPO EDITORIALE JACKSON - Divisione Libri - Via Rosellini, 12 - 20124 Milano 

CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 


codice 


n° copie 


BATTAGLIE CON 
IL COMPUTER 


□ Pagherò contrassegno al postino il prezzo indicato più L 3.000 per contributo 
fisso spese di spedizione. 


Cod. 011D Pag. 48 Lire 9.000 

IMPARIAMO 
A PROGRAMMARE 


Condizioni di pagamento con esenzione del contributo spese di spedizione: 

□ Allego assegno della Banca □ Allego fotocopia del versamento 

su eie n. 11666203 a voi intestato 


□ Allego fotocopia di versamento 

n°_ su vaglia postale a voi intestato 


Cod. 018D Pag. 48 Lire 9.000 

I ROBOT 

Cod. 003D Pag. 48 Lire 9.000 

RIVOLUZIONE 

INFORMATICA 

Cod. 0040 Pag. 48 Lire 9.000 


Nome 


Cognome 

Via ^ 

Cap. 

Città 

Prov. 

Data 

Firma 



Spazio riservato alle Aziende. Si richiede l’emissione di fattura 


Partita I.V.A. 

Il II 1 II 1 II 1 1 

MINIMO 

L. 50.000 





























